<%@LANGUAGE="VBSCRIPT"%> <%Option Explicit%> <% Function GetSecureVal(param) If IsEmpty(param) Or param = "" Then GetSecureVal = param Exit Function End If If IsNumeric(param) Then GetSecureVal = CLng(param) Else GetSecureVal = Replace(CStr(param), "'", "''") End If End Function Dim ID ID = GetSecureVal(UCase(Request.QueryString("ID"))) Dim sScriptName sScriptName = Request.ServerVariables("SCRIPT_NAME") Dim quote quote = chr(34) Dim iPageNum, iRowsPerPage If Request.QueryString("iPageNum") = "" Then iPageNum = 1 Else iPageNum = Request.QueryString("iPageNum") iPageNum = CInt(iPageNum) End If iRowsPerPage = 10 Dim cnn set cnn = Server.CreateObject("ADODB.CONNECTION") cnn.ConnectionString = conn_shan cnn.Open Function GetRecords(sSQL) Dim rst Set rst = Server.CreateObject("ADODB.RECORDSET") set rst.ActiveConnection = cnn rst.CursorType = 3 rst.CursorLocation = 3 rst.LockType = 3 rst.Open sSQL ',adOpenStatic, adLockReadOnly Set GetRecords = rst END Function Sub WriteTableBody(rst, iRowsPerPage, iPageNum) Dim iLoop Dim fld Dim TRField1, TRField2, swap TRField1 = "" TRField2 = "" iLoop = 1 rst.PageSize = iRowsPerPage rst.AbsolutePage = iPageNum Dim fldc 'Write out Current Page Do While (Not rst.EOF) and (iLoop <= iRowsPerPage) Response.Write TRField1 swap = TRField2 TRField2 = TRField1 TRField1 = swap %> " onMouseOver="popup('Click to see more details','#ff8800');" onMouseOut='kill();'><%= Server.HTMLEncode(rst.Fields("ID").value & " ")%> "><%= Server.HTMLEncode(rst.Fields("PA").value & " ")%> <%= Server.HTMLEncode(rst.Fields("CE").value & " ")%>  <%= Server.HTMLEncode(rst.Fields("CT").value & " ")%>  "><%= rst.Fields("PB").value%> <% iLoop = iLoop + 1 rst.MoveNext ' Response.Write "" Loop End Sub Sub ShowNavBar(rst) Dim iPageCount Dim iLoop ' if use RecordCount and PageCount ' it will conteract the benefits acquired from using ' Serverside cursor ' and cachesize iPageCount = rst.PageCount ' Response.Write "" Response.Write "" Response.Write "" Else Response.Write "" Response.Write "" End If Response.Write "" Response.Write "" Response.Write "" Else Response.Write "" Response.Write "" End If Response.Write "
" If (iPageNum - 1) < 1 Then Response.Write "<<First<Previous<<First<PreviousPage " & iPageNum & " of " & iPageCount & "" If (iPageNum +1) > iPageCount Then Response.Write "Next>Last>>Next>Last>>

" ' End Sub Sub CleanUp(rst) If Not rst Is Nothing then If rst.state = 1 then rst.close end if set rst = nothing End If End Sub Sub CleanUp(rst) If Not rst Is Nothing then If rst.state = 1 then rst.close end if set rst = nothing End If End Sub %> Browse PCD --- BIDD
 
  BIDD Pharmainformatics Databases
Pathway Crosstalk Database
National University of Singapore, Science Faculty, Computational Sci Dept
 
   
   

Browse PCD

Records related with: <%=Server.HTMLEncode(ID)%>
<% Dim sort1, mysort mysort = request.querystring("sort1") if len(mysort) > 0 then sort1 = mysort else sort1 = "ID" end if %> <% Dim sSQL, rst sSQL = "SELECT * FROM crosstalk WHERE ((PA LIKE '%" & ID & "%') OR (PB LIKE '%" & ID & "%') OR (CT LIKE '%" & ID & "%')) ORDER BY " & sort1 & "" sSQL = replace(sSQL, "%%", "%") Set rst = GetRecords(sSQL) 'If finds any data If rst.RecordCount>0 Then ' If rst.PageCount>1 Then ' ShowNavBar(rst) ' end if %> <% WriteTableBody rst, iRowsPerPage, iPageNum %>
PCD Entry Crosstalk Partners Crosstalk Effect Related Disease or Biological Process

<% If rst.PageCount>1 Then ShowNavBar(rst) end if Else 'If cannot find any data Response.Write "

Sorry, no matches found.
Please search again.

" End if %>

<  Back    Search    Guestbook >

 

Please kindly sign our Guest book, or report any bugs to liuxin@nus.edu.sg .

Prof. Chen Yuzong
BIDD Group, Department of Pharmacy
Centre for Computational Science & Engineering, NUS.
All rights reserved.
 
   
           
 
Computer-aided Drug Design
about BIDD |  databases |  software |  teaching |  research |  links

Department of Computational Science | National University of Singapore | Blk S17, 3 Science Drive 2, Singapore 117543
<% set cnn = nothing cleanup rst %>